SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TTRANG_VOUC_Q01]  
/*---------------------------------------------------------*/      
/*---Empresa              : OFISIS S.A.                  --*/      
/*---Cliente              : OFISIS S.A.                  --*/      
/*---Sistema              : Tesoreria                    --*/      
/*---M¸dulo               : Empresa                      --*/      
/*---Programa             : Procedimiento para generar   --*/      
/*---                       Cheques para Trabajadores    --*/            
/*---Script               : ttproc_i.sql                 --*/      
/*---Nombre SP            : AD_TCMOVI_BANC_I09           --*/      
/*---Desarrollado por     : Javier Flores A.             --*/      
/*---Fecha Creaci¸n       : 29/10/2003                   --*/      
/*---Base Datos           : Microsoft Sql Server         --*/      
/*---Versi¸n              : 8.0                          --*/      
/*---Invoca a SP          :                              --*/      
/*---------------------------------------------------------*/      
/*---------------------------------------------------------*/      
/*---Modificado 1 por     :Luis Avila Poma     --*/      
/*---Fecha Modificacion   :13/01/2009      --*/  
/*---Detalle Modificacion :Modificacion del SP para      --*/      
/*---        otras Opciones (OFIPLAN)      --*/       
/*---------------------------------------------------------*/      
/*---------------------------------------------------------*/      
/*---Modificado 2 por     :         --*/      
/*---Fecha Modificacion   :         --*/       
/*---Detalle Modificacion :         --*/      
/*---------------------------------------------------------*/      
/*---Comentarios                                         --*/      
/*---                                                    --*/      
/*---------------------------------------------------------*/      
/*---------------------------------------------------------*/      
/*--- Drop Proc SP_TTRANG_VOUC_Q01       --*/      
/*--- Grant Execute on SP_TTRANG_VOUC_Q01 to public      --*/       
/*--- SP_TTRANG_VOUC_Q01         --*/      
/*---------------------------------------------------------*/      
@ISCO_USUA_MODI  TD_VC_008_USUA,  
@ISCO_EMPR   TD_VC_002,  
@ISCO_BANC   TD_VC_003,  
@ISNU_CNTA_BANC  TD_VC_020,    
@ISAA_BNCO   TD_VC_004,      
@ISMM_BNCO   TD_VC_002,   
@ISCO_UNID_CONC  TD_VC_003,  
@ISNU_COMP_INIC  TD_VC_008,  
@ISNU_COMP_FINA  TD_VC_008  
  
As  
Declare      
      
@CSCO_BANC   TD_VC_003,       
@CSNU_CNTA_BANC  TD_VC_020,      
@CDFE_OPER   TD_DT_001,   
@CSNU_COMP_BANC  TD_VC_008,  
@VNFE_0001   TD_IN_001  
Begin  
  
 Delete #TWPROC_INTE_I65  
  
 Declare CU_TTRANG_VOUC_Q01_1 Cursor For      
 Select  CO_BANC, NU_CNTA_BANC, FE_OPER, NU_COMP_BANC  
 From TCMOVI_BANC  
 Where CO_EMPR = @ISCO_EMPR  
 And  CO_BANC = @ISCO_BANC  
 And  NU_CNTA_BANC = @ISNU_CNTA_BANC  
 And  AA_BNCO = @ISAA_BNCO  
 And  MM_BNCO = @ISMM_BNCO  
 And  CO_UNID_CONC = @ISCO_UNID_CONC  
 And  TI_MOVI_BANC = 'E'  
 And  NU_COMP_BANC >= @ISNU_COMP_INIC  
 And  NU_COMP_BANC <= @ISNU_COMP_FINA  
 ORDER BY NU_COMP_BANC  
      
 Open CU_TTRANG_VOUC_Q01_1       
 Fetch CU_TTRANG_VOUC_Q01_1       
 Into @CSCO_BANC, @CSNU_CNTA_BANC, @CDFE_OPER, @CSNU_COMP_BANC  
  
 Select @VNFE_0001  = @@FETCH_STATUS      
      
 While (@VNFE_0001 = 0)      
 Begin      
  If (@VNFE_0001 < 0)      
  Begin         
   Close CU_TTRANG_VOUC_Q01_1      
   Deallocate CU_TTRANG_VOUC_Q01_1      
   Return  
  End        
 --SELECT @CSCO_BANC, @CSNU_CNTA_BANC, @CDFE_OPER, @CSNU_COMP_BANC  
  INSERT INTO #TWPROC_INTE_I65(NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, DE_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, NO_AUXI,   
    TI_DOCU, NU_DOCU, CO_MONE, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG,IM_MVTO_CNTB, DE_GLOS, CO_ORDE_SERV, ST_FLAG,   
    CO_UNID_CONC, NO_UNID_CNTB, NU_ASTO, CO_BANC, DE_NOMB_BANC, NU_CNTA_BANC, AA_BNCO, MM_BNCO, FE_OPER,   
    CO_TIPO_OPER, DE_TIPO_OPER)  
  Exec SP_TTPROC_INTE_I65 @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @CSCO_BANC, @CSNU_CNTA_BANC, '',  
    @ISAA_BNCO, @ISMM_BNCO, @CDFE_OPER, @CSNU_COMP_BANC, 'N'  
  
 Fetch CU_TTRANG_VOUC_Q01_1       
 Into @CSCO_BANC, @CSNU_CNTA_BANC, @CDFE_OPER, @CSNU_COMP_BANC  
   
 Select @VNFE_0001 = @@FETCH_STATUS      
 End          
 Close CU_TTRANG_VOUC_Q01_1      
 Deallocate CU_TTRANG_VOUC_Q01_1      
   
/* SELECT  NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, DE_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, NO_AUXI,   
   TI_DOCU, NU_DOCU, CO_MONE, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG,IM_MVTO_CNTB, DE_GLOS, CO_ORDE_SERV, ST_FLAG,   
   CO_UNID_CONC, NO_UNID_CNTB, NU_ASTO, CO_BANC, DE_NOMB_BANC, NU_CNTA_BANC, AA_BNCO, MM_BNCO, FE_OPER,   
   CO_TIPO_OPER, DE_TIPO_OPER  
 FROM  #TWPROC_INTE_I65  
  */  
  
 SELECT  NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, DE_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, NO_AUXI,   
   TI_DOCU, NU_DOCU, CO_MONE, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG,IM_MVTO_CNTB, DE_GLOS,   
   CO_ORDE_SERV, ST_FLAG, CO_UNID_CONC, NO_UNID_CNTB, NU_ASTO, CO_BANC, DE_NOMB_BANC,   
   NU_CNTA_BANC, AA_BNCO, MM_BNCO, FE_OPER, CO_TIPO_OPER, DE_TIPO_OPER  
 FROM  #TWPROC_INTE_I65  
    
END  
      
RETURN      
      
/*------------------------ Fin ------------------------------*/  
  
  
GO
